home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
84xx
/
8411.d64
/
list 7 (page)
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
430b
|
13 lines
70 REM ********************************
71 REM * P A G E *
72 REM ********************************
73 REM * BERICHTIGUNG DES *
74 REM * SIMON'S BASIC-BEFEHLS dK *
75 REM ********************************
79 K=0:PRINT" P A G E [146] ?CHECKSUM ";
80 FOR I=$BFF2 TO $BFFE:READ J:POKE I,J:K=K+J:NEXT
81 DATA 32,225,255,208,5,104,104,76,60
82 DATA 191,76,228,255
83 POKE $BF12,242:POKE $BF13,191
84 IFK=1819THENPRINT"OK":dG:PRINT"ERROR